home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #11 / Amiga Plus CD - 2004 - No. 11.iso / AmiSoft / Dev / basic / blitzgtfix.lha / BlitzGTFix / BBGTLib_Examples / gtnewlookprop.bb2 < prev    next >
Text File  |  2002-01-30  |  1KB  |  51 lines
  1. WbToScreen 3
  2. Use Screen 3
  3.  
  4. LoadFont 2,"topaz.font",8
  5. Use IntuiFont 2
  6.  
  7. NEWTYPE.gtlv_item
  8.     pad.w
  9.     text$
  10. End NEWTYPE
  11.  
  12. Dim List dummy.gtlv_item(10)
  13. While AddItem(dummy())
  14.     dummy()\text = String$(Chr$(Rnd(26)+65),5+Rnd(5))
  15. Wend
  16.  
  17.  
  18. foo.l=GTListView(0,1,20,20,80,50,"Normal",#PLACETEXT_ABOVE,dummy())
  19. NPrint Hex$(foo)
  20.  
  21. foo.l=GTListView(0,2,130,20,80,50,"Afterwards",#PLACETEXT_ABOVE,dummy())
  22. NPrint Hex$(foo)
  23.  
  24. ; First mode - setting the default value of the new look prop flag
  25. ; which will be used by all gadget creation commands from now on
  26. ; (if there is a prop gadget used as part of the gadget)
  27. GTNewLookProp On
  28. foo.l=GTListView(0,3,240,20,80,50,"Change default",#PLACETEXT_ABOVE,dummy())
  29. NPrint Hex$(foo)
  30.  
  31. ; Second method of using the command - to selectivly change the prop style of
  32. ; a gadget
  33. GTNewLookProp 0,2,On
  34.  
  35. AddIDCMP #LISTVIEWIDCMP
  36.  
  37. Window 0,0,0,600,300,$100f,"jjlk",-1,-1
  38. DefaultOutput
  39.  
  40. AttachGTList 0,0
  41. While ev.l<>#IDCMP_CLOSEWINDOW
  42.     ev.l=WaitEvent
  43.     Select ev
  44.         Case #IDCMP_GADGETUP
  45.             NPrint "Listview ",GadgetHit," hit, item number ",EventCode
  46.     End Select
  47. Wend
  48. DetachGTList 0
  49. End
  50.  
  51.